home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
XTIMER.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-06
|
452b
|
27 lines
var
SaveTime : integer;
{$IBoDecl}
{$Itimer}
{$IPutStr}
BEGIN
ClrScr;
PutStr (h,'Set timer for 5 seconds. . .',30,6,14);
i := 5;
SaveTime := TimeElapsed;
repeat
if TimeElapsed <> SaveTime then
begin
str (i,s);
PutStr (h,s, 40,12-i,14);
i := i - 1;
SaveTime := TimeElapsed;
end;
until timer(5);
PutStr (h,'Time''s up.',37,13,14);
read;
END.